home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / REXX / xMethods.xdme < prev    next >
Text File  |  1995-07-31  |  438b  |  19 lines
  1. /* $VER: xMethods.xdme 1.0 (31 Jul 1995) */
  2.  
  3. number = FileList("libs:compressors/xpk????.library",methods,"F","N")
  4. do i=1 to number
  5.      do j=i to number
  6.           if methods.i > methods.j then do
  7.                buffer = methods.i
  8.                methods.i = methods.j
  9.                methods.j = buffer
  10.            end
  11.       end j
  12. end i
  13. deflist xpk
  14. do i = 1 to number
  15.      xcom = "addnode xpk tail" substr(methods.i,4,4) i-1
  16.      xcom
  17. end
  18.  
  19.